home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 55 / MOBICLIC 55.ISO / DATA / MOBICLUB / MEDIATTI.CST / 00025_Script_Récolte listes final < prev    next >
Text File  |  2003-06-26  |  807b  |  36 lines
  1. property pList
  2. property pSprite
  3. property lCompteur
  4. property pFistFrame
  5.  
  6. on getPropertyDescriptionList
  7.   vSpriteRect = sprite (the currentSpriteNum).rect
  8.   vRadius = 2
  9.   vPDList = [:]
  10.   setaProp vPDList, #pSprite, [#comment: "La boucle se trouve sur quelle piste ?", \
  11.     #format: #integer,#default: 1]
  12.   return vPDList
  13. end getPropertyDescriptionList
  14.  
  15. on beginSprite
  16.   
  17.   pFistFrame = the frame
  18.   pList = []
  19.   lCompteur = 0
  20.   
  21. end
  22.  
  23. on endSprite
  24.   put "pList" & pSprite & " = " & pList into line (member("reτoit listes").line.count + 1) of member "reτoit listes"
  25. end
  26.  
  27. on exitFrame me
  28.   
  29.   if sprite(pSprite).member.name <> "" then
  30.     pList.append([the frame - pFistFrame + 1,sprite(pSprite).member.name,sprite(pSprite).loc])
  31.   end if
  32.   
  33.   lCompteur = lCompteur + 1
  34.   
  35. end
  36.